unit about;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls;

type

  { TfrmAbout }

  TfrmAbout = class(TForm)
    Image: TImage;
    lblinfo: TLabel;
    lblSiteDeveloper: TLabel;
    StaticText: TStaticText;
    StaticTextDonate: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure lblSiteDeveloperClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.lfm}

{ TfrmAbout }

uses lclintf, VersionSupport;

procedure TfrmAbout.lblSiteDeveloperClick(Sender: TObject);
begin
  OpenURL('http://www.emetemunoy.appspot.com/');
end;

procedure TfrmAbout.FormCreate(Sender: TObject);
begin
  lblinfo.Caption := 'Версія: ' + GetFileVersion + #13 + GetCompilerInfo +
    #13 + GetLCLVersion + ' ' + GetWidgetSet + #13 + GetTargetInfo + #13 + 'Copyright © 2012-' +
{$I %DATE%}
    +' by Aleph/EmetEmunoy';
end;

end.
